﻿<!--#include file="../../../../../popasp/lasp.asp" -->
<%
	on error resume next
	Dim POP_MVC,tpl,pasp
	set POP_MVC = new POPASP_MVC
	set pasp = POP_MVC
	POP_MVC.mvc_dir = "../../popasp/"
	call POP_MVC.init
	POP_MVC.dG_("startTime") = 37453.23
	POP_MVC.dG_("beginTime") = beginTime__
	
	call G_("initTime")
	
	set tpl = D_
	IF Not isEmpty ( session( "./home/Index/assignPrikey_where" ) ) Then 
		If session("./home/Index/assignPrikey_where") = 1 Then 
			set tpl= js_decode(session("./home/Index/assignPrikey"))
		Else 
			set tpl = js_decode( POP_MVC.file_get_contents(session("./home/Index/assignPrikey")) )
		End If 
	End If
	call G_("loadTime")
	
	Function getMemory( key )
		getMemory = Application.Contents( "D:\asp\easyasp\test2\xls__" & key )
	End Function
%>
<h1><% Response.Write "Index/assignPrikey.html" %>模板</h1>
<hr />
<a href="/xls/index.asp?c=Assign&a=listBooks">显示所有工作簿</a>
|
<a href="/xls/index.asp?c=Index&a=listBooks">显示“<% Response.Write session("assignedBook") %>”工作簿的所有工作表</a>
<hr />
<form action="/xls/index.asp?c=Index&a=assignPrikey&sheet=Sheet1$" method="post">
主键：<input type="text" name="prikey" value="序号"/><br />
<input type="hidden" name="sheet" value="<% Response.Write Request.QueryString("sheet") %>" />
<input type="submit" name="submit" value="提交" />
</form>
<!--#include file="../../../../../popasp/tpl/poplite_end.inc.txt" -->